Imports System.Xml
Imports System.Data.SqlClient
Public Class dTalonario
    Public Function Existe(ByVal Numero_Desde As String, ByVal Numero_Hasta As String, ByVal IdTipoTalonario As String) As Boolean
        Dim Parametros As ArrayList = New ArrayList
        If Numero_Desde <> "" Then
            Parametros.Add(New SqlParameter("@pENumero_Desde", Numero_Desde))
        End If
        If Numero_Hasta <> "" Then
            Parametros.Add(New SqlParameter("@pENumero_Hasta", Numero_Hasta))
        End If
        If IdTipoTalonario <> "" Then
            Parametros.Add(New SqlParameter("@pEIdTipoTalonario", IdTipoTalonario))
        End If
        '        Dim dts As DataSet = dConexion.Consultar("STORE_TblTalonarioBUSCARFiltrado", Parametros)
        Return (dConexion.Consultar("STORE_TblTalonarioBUSCARFiltrado", Parametros).Tables(0).Rows.Count > 0)
    End Function
    Public Function Insertar(ByVal Numero_Desde As String, ByVal Numero_Hasta As String, ByVal Fecha_Vencimiento As String, ByVal IdTipoTalonario As String) As Boolean
        Dim Parametros As ArrayList = New ArrayList
        Parametros.Add(New SqlParameter("@pENumero_Desde", Numero_Desde))
        Parametros.Add(New SqlParameter("@pENumero_Hasta", Numero_Hasta))
        If Fecha_Vencimiento <> "" Then
            Parametros.Add(New SqlParameter("@pEFecha_Vencimiento", Fecha_Vencimiento))
        End If
        If IdTipoTalonario <> "" Then
            Parametros.Add(New SqlParameter("@pEIdTipoTalonario", IdTipoTalonario))
        End If
        Return dConexion.ABM("STORE_TblTalonarioALTA", Parametros)
    End Function
    Public Function Eliminar(ByVal IdTalonario As String) As Boolean
        Dim Parametros As ArrayList = New ArrayList
        If IdTalonario <> "" Then
            Parametros.Add(New SqlParameter("@pEIdTalonario", IdTalonario))
        End If
        Return dConexion.ABM("STORE_TblTalonarioELIMINAR", Parametros)
    End Function
    Public Function Modificar(ByVal IdTalonario As String, ByVal Numero_Desde As String, ByVal Numero_Hasta As String, ByVal Fecha_Vencimiento As String, ByVal Estado As String, ByVal IdTipoTalonario As String) As Boolean
        Dim Parametros As ArrayList = New ArrayList
        If IdTalonario <> "" Then
            Parametros.Add(New SqlParameter("@pEIdTalonario", IdTalonario))
        End If
        If Numero_Desde <> "" Then
            Parametros.Add(New SqlParameter("@pENumero_Desde", Numero_Desde))
        End If
        If Numero_Hasta <> "" Then
            Parametros.Add(New SqlParameter("@pENumero_Hasta", Numero_Hasta))
        End If
        If Fecha_Vencimiento <> "" Then
            Parametros.Add(New SqlParameter("@pEFecha_Vencimiento", Fecha_Vencimiento))
        End If
        If Estado <> "" Then
            Parametros.Add(New SqlParameter("@pEEstado", Estado))
        End If
        If IdTipoTalonario <> "" Then
            Parametros.Add(New SqlParameter("@pEIdTipoTalonario", IdTipoTalonario))
        End If
        Return dConexion.ABM("STORE_TblTalonarioMODIFICAR", Parametros)
    End Function
    Public Function BuscarFiltrado(ByVal IdTalonario As String, ByVal Numero_Desde As String, ByVal Numero_Hasta As String, ByVal Fecha_Alta As String, ByVal Fecha_Vencimiento As String, ByVal Estado As String, ByVal IdTipoTalonario As String) As DataSet
        Dim Parametros As ArrayList = New ArrayList
        If IdTalonario <> "" Then
            Parametros.Add(New SqlParameter("@pEIdTalonario", IdTalonario))
        End If
        If Numero_Desde <> "" Then
            Parametros.Add(New SqlParameter("@pENumero_Desde", Numero_Desde))
        End If
        If Numero_Hasta <> "" Then
            Parametros.Add(New SqlParameter("@pENumero_Hasta", Numero_Hasta))
        End If
        If Fecha_Alta <> "" Then
            Parametros.Add(New SqlParameter("@pEFecha_Alta", Fecha_Alta))
        End If
        If Fecha_Vencimiento <> "" Then
            Parametros.Add(New SqlParameter("@pEFecha_Vencimiento", Fecha_Vencimiento))
        End If
        If Estado <> "" Then
            Parametros.Add(New SqlParameter("@pEEstado", Estado))
        End If
        If IdTipoTalonario <> "" Then
            Parametros.Add(New SqlParameter("@pEIdTipoTalonario", IdTipoTalonario))
        End If
        Return dConexion.Consultar("STORE_TblTalonarioBUSCARFILTRADO", Parametros)
    End Function
End Class
